home *** CD-ROM | disk | FTP | other *** search
/ Laurel With a Moral / Laurel With a Moral.iso / st1.inf < prev   
INI File  |  1995-02-09  |  10KB  |  313 lines
  1. DefineVariables
  2. ;; this window lists the variables used by the this install script
  3. ;; these are easy to define at any time and conmsist of 2 components:
  4. ;; type [variablestring]
  5.  
  6. Number [ReturnVal1]
  7. Number [ReturnVal2]
  8. Number [ReturnVal3]
  9. Number [ErrCount]
  10.  
  11. Directory [WinDir]
  12. Directory [WinsDir]
  13.  
  14. Logical [EnKeyb]
  15. Logical [NetAvail]
  16. Logical [MathPres]
  17. Logical [CDAvail]
  18.  
  19. Number [XMSAvail]
  20. Number [ExtmemPagesActive]
  21. Number [ExtmemPagesAvail]
  22. Number [ExtMemAvail]
  23. Number [ExtMemPres]
  24. Number [ExpMempgavail]
  25. Number [ExpMempgactive]
  26.  
  27. Text [DispType]
  28. Text [OSVer]
  29. Text [DosVer]
  30. Text [EmsVer]
  31.  
  32. Text [ProdExecutable]
  33. Text [Configexe]
  34. Text [GroupTitle]
  35. Text [GroupFile]
  36. Text [ExistingGroupName]
  37. Text [InstDir]
  38.  
  39. Text [FactsIconF]
  40.  
  41. Text [IconTitle]
  42. Text [IconFile]
  43. Text [ConfigTitle]
  44. Text [ConfigFile]
  45. EndDefineVariables
  46. Procedure SetupDisplay
  47. SetBackGroundColor  0 0 255 0 0 255 
  48. SetDefaultBitMap Off
  49. SetDithering On
  50. ShowWindow Maximize ;;
  51. LoadBitMap 1 [InstallFromDrive]:\LAURTEXT.BMP
  52. ;; ***Substitute source directory for ShadowDirectory argument if necessary***
  53. ;;LINE 53
  54. ShowBitMap 1 @xy(10,15)
  55.    DialogBox CENTERSCREEN  258 180 Returns [Number1] BlackOnWhite UseHeader "Copyright Notice" SysMenu ;;
  56.       Font "MS Sans Serif" 8
  57.       StaticText @xy(24,10) 220 10 "The video, animations, artwork, music, dialogue, and interface"
  58.       StaticText @xy(24,21) 220 10 "of this product are all protected under national and international"
  59.       StaticText @xy(24,32) 220 10 "copyright laws and conventions.  Any unauthorized reproduction,"
  60.       StaticText @xy(24,43) 220 10 "duplication, or distribution of this material is illegal and "
  61.       StaticText @xy(24,54) 220 10 "punishable under law."
  62.       StaticText @xy(24,76) 220 10 "Videos and certain story elements contained on this CD-ROM are "
  63.       StaticText @xy(24,87) 220 10 "Copyright 1987 Jane E. Dickerson and may not be reused or"
  64.       StaticText @xy(24,98) 220 10 "reproduced for any purpose, in any medium, without the "
  65.       StaticText @xy(24,109) 220 10 "express written permission of the copyright holder."
  66.       StaticText @xy(24,131) 220 10 "      Copyright 1995 WeMake CDs, Inc. - all rights reserved"
  67.  
  68.       DefPushButton @xy(40,150) 175 17 "I agree to honor the terms of this copyright." 100
  69.    EndDialogBox
  70. EndProcedure
  71. Procedure Install
  72.  
  73. ;; install procedure handles the details of installing the program
  74.  
  75.  
  76.  
  77. :Top
  78.  
  79.  
  80.   DialogBox CENTERSCREEN  237 180 Returns [Number1] BlackOnWhite UseHeader "Notice!" SysMenu ;;
  81.       Font "MS Sans Serif" 8
  82.       StaticText @xy(8,10) 225 21 "For 'Laurel with a Moral' to run correctly, you must have the"
  83.       StaticText @xy(8,21) 225 20 "11/29/94, or later, version of Video for Windows Runtime installed"
  84.       StaticText @xy(8,32) 225 20 "on your system.  To install the version included on the CD-ROM,"
  85.       StaticText @xy(8,43) 225 20 "press escape to exit this installation, then in Program Manager:"
  86.       StaticText @xy(8,65) 225 20 "    1. Click on 'File'"
  87.       StaticText @xy(8,76) 225 20 "    2. Click on 'Run'"
  88.       StaticText @xy(8,87) 225 20 "    3. In the dialogue box, type: D:\VFWSETUP\SETUP"
  89.       StaticText @xy(8,98) 225 20 "         (In place of 'D:' put the drive letter of your CD-ROM player.)"
  90.       StaticText @xy(8,109) 225 20 "    4. Click on 'OK' and follow the prompts."
  91.       StaticText @xy(8,131) 225 20 "Once the updated runtime is installed, proceed with the installation"
  92.       StaticText @xy(8,142) 225 20 "of 'Laurel with a Moral' as before."
  93.  
  94.  
  95.       DefPushButton @xy(88,160) 58 15 "Continue" 100
  96.    EndDialogBox
  97.  
  98.  
  99.     DialogBox CENTERSCREEN 205 138  Returns [Number1] BlackOnWhite UseHeader "Choose Installation Type" SysMenu ;;C:\CHOOSE.DBB
  100.       Font "MS Sans Serif" 8
  101.       StaticText @xy(8,39) 205 20 "(These options require 3 meg available hard drive space"
  102.       StaticText @xy(8,50) 205 20 "and will speed access to the videos on the CD-ROM)"
  103.       StaticText @xy(8,98) 205 20 "(These options will run 'Laurel' directly from the CD.)"
  104.       DefPushButton @xy(80,115) 50 14 "OK" OK
  105.       RadioButtonGroup Uses [Number2]
  106.      RadioButton @xy(8,10) 189 14 "Install version for 486 and Pentiums onto hard drive"
  107.      RadioButton @xy(8,24) 193 10 "Install version for 386 onto hard drive"
  108.      RadioButton @xy(8,72) 188 10 "Install Program Manager Icon for 486/Pentium version"
  109.      RadioButton @xy(8,83) 210 10 "Install Program Manager Icon for 386 version"
  110.    EndDialogBox
  111. ;;LINE 111
  112.     
  113.  
  114.  
  115.  
  116. If [Number2] = 1        ;; 486/Pentium HD install
  117.  
  118. ;; programmer is setting default dir to install the files to
  119. [installationdirectory] := Laurel
  120.  
  121. ;; show default dialog box to let user choose drive to install to
  122. DetermineInstallationDrive
  123.  
  124. ;; show default dialog box to let user select directory
  125. ;; this dialog will default to the drive user just selected and the programmer defined
  126. ;; directory above
  127. DetermineInstallationDirectory installationdrive:\[installationdirectory]
  128.  
  129. CopyFiles
  130. laurely.exe
  131. EndCopyFiles
  132.  
  133. CreateFile [WindowsDirectory]\laurel.ini
  134. AppendFile [WindowsDirectory]\laurel.ini
  135. [InstallFromDrive]
  136. EndAppendFile
  137.  
  138.  
  139. CopyFiles from [InstallFromDrive]:\SysFiles to [WindowsSystemDirectory]
  140. *.*
  141. EndCopyFiles
  142.  
  143.  
  144. ;;  now goto the new directory
  145. ChangeDirectoryto [InstallationDirectory]
  146. ;; set the icon data
  147.  
  148. [ProdExecutable] := [InstallationDirectory]\Laurely.exe
  149. ;;[ConfigEXE] := [InstallationDirectory]\config.exe  ;;LINE 150
  150. [GroupTitle]  := Laurel
  151. [InstDir]        := [InstallationDirectory]
  152. [IconFile]     := Laurely.exe
  153. [ConfigFile]    := Laurely.exe
  154. [IconTitle]      :=Laurel with a Moral
  155. [ConfigTitle]   := Laurel
  156.  
  157.  
  158. ProgramManagerDDE
  159. CreateGroup (Laurel with a Moral)
  160. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  161. ;;AddItem([ConfigEXE],[ConfigTitle],[InstallationDirectory]\[ConfigFile])
  162. EndProgramManagerDDE
  163.  
  164. Endif
  165.  
  166.  
  167. If [Number2] = 2        ;; 386 HD install
  168.  
  169. ;; programmer is setting default dir to install the files to
  170. [installationdirectory] := Laurel
  171.  
  172. ;; show default dialog box to let user choose drive to install to
  173. DetermineInstallationDrive
  174.  
  175. ;; show default dialog box to let user select directory
  176. ;; this dialog will default to the drive user just selected and the programmer defined
  177. ;; directory above
  178. DetermineInstallationDirectory installationdrive:\[installationdirectory]
  179. ;;LINE 180
  180. CopyFiles
  181. laurelx.exe
  182. EndCopyFiles
  183.  
  184. CreateFile [WindowsDirectory]\laurel.ini
  185. AppendFile [WindowsDirectory]\laurel.ini
  186. [InstallFromDrive]
  187. EndAppendFile
  188.  
  189. ;;LINE 179
  190. CopyFiles from [InstallFromDrive]:\SysFiles to [WindowsSystemDirectory]
  191. *.*
  192. EndCopyFiles
  193.     
  194. ;; now goto the new directory
  195. ChangeDirectoryto [InstallationDirectory]
  196. ;; set the icon data  LINE 150
  197.  
  198. [ProdExecutable] := [InstallationDirectory]\Laurelx.exe
  199. ;;[ConfigEXE] := [InstallationDirectory]\config.exe
  200. [GroupTitle]  := Laurel
  201. [InstDir]        := [InstallationDirectory]
  202. [IconFile]     := Laurelx.exe
  203. [ConfigFile]    := Laurelx.exe
  204. [IconTitle]      :=Laurel with a Moral
  205. [ConfigTitle]   := Laurel
  206.  
  207.  
  208. ProgramManagerDDE
  209. CreateGroup (Laurel with a Moral)
  210. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  211. ;;AddItem([ConfigEXE],[ConfigTitle],[InstallationDirectory]\[ConfigFile])
  212. EndProgramManagerDDE
  213. ;;203
  214. Endif
  215.  
  216. If [Number2] = 3        ;; 486/Pentium CD-ROM
  217.  
  218.  
  219. ;; programmer is setting default dir to install the files to
  220. [installationdirectory] := [InstallFromDrive]
  221.  
  222. ;; show default dialog box to let user choose drive to install to
  223. ;;DetermineInstallationDrive
  224.  
  225. ;; show default dialog box to let user select directory
  226. ;; this dialog will default to the drive user just selected and the programmer defined
  227. ;; directory above
  228. ;;DetermineInstallationDirectory installationdrive:\[installationdirectory]
  229.  
  230. CreateFile [WindowsDirectory]\laurel.ini
  231. AppendFile [WindowsDirectory]\laurel.ini
  232. [InstallFromDrive]
  233. EndAppendFile
  234.  
  235.  
  236. CopyFiles from [InstallFromDrive]:\SysFiles to [WindowsSystemDirectory]
  237. *.*
  238. EndCopyFiles
  239.     
  240. ;; now goto the new directory 230
  241. ChangeDirectoryto [InstallFromDirectory]
  242. ;; set the icon data  LINE 232
  243.  
  244.  
  245. [ProdExecutable] :=  [InstallFromDrive]:\laurely.exe
  246. ;;[ConfigEXE] := [InstallFromDirectory]\config.exe
  247. [GroupTitle]  := Laurel
  248. [InstDir]        := [InstallFromDirectory]
  249. [IconFile]     := laurely.exe
  250. [ConfigFile]    := laurely.exe
  251. [IconTitle]      :=Laurel with a Moral
  252. [ConfigTitle]   := Laurel
  253.  
  254.  
  255. ProgramManagerDDE
  256. CreateGroup (Laurel with a Moral)
  257. AddItem([ProdExecutable],[IconTitle], [InstallFromDirectory]\[IconFile])
  258. ;;AddItem([ConfigEXE],[ConfigTitle], [InstallFromDirectory]\[ConfigFile])
  259. EndProgramManagerDDE
  260.  
  261. Endif
  262.  
  263. If [Number2] = 4        ;; 386 CD-ROM
  264.  
  265. ;; programmer is setting default dir to install the files to
  266. [installationdirectory] := [InstallFromDrive]
  267.  
  268. ;; show default dialog box to let user choose drive to install to
  269. ;;DetermineInstallationDrive
  270.  
  271. ;; show default dialog box to let user select directory
  272. ;; this dialog will default to the drive user just selected and the programmer defined
  273. ;; directory above
  274. ;;DetermineInstallationDirectory installationdrive:\[installationdirectory]
  275.  
  276. CreateFile [WindowsDirectory]\laurel.ini
  277. AppendFile [WindowsDirectory]\laurel.ini
  278. [InstallFromDrive]
  279. EndAppendFile
  280.  
  281. CopyFiles from [InstallFromDrive]:\SysFiles to [WindowsSystemDirectory]
  282. *.*
  283. EndCopyFiles
  284.     
  285. ;; now goto the new directory
  286. ChangeDirectoryto [InstallFromDirectory]
  287. ;; set the icon data 
  288.  
  289. ;;LINE 290
  290. [ProdExecutable] :=  [InstallFromDrive]:\laurelx.exe
  291. ;;[ConfigEXE] := [InstallFromDirectory]\config.exe
  292. [GroupTitle]  := Laurel
  293. [InstDir]        := [InstallFromDirectory]
  294. [IconFile]     := laurelx.exe
  295. [ConfigFile]    := laurelx.exe
  296. [IconTitle]      :=Laurel with a Moral
  297. [ConfigTitle]   := Laurel
  298.  
  299.  
  300. ProgramManagerDDE
  301. CreateGroup (Laurel with a Moral)
  302. AddItem([ProdExecutable],[IconTitle], [InstallFromDirectory]\[IconFile])
  303. ;;AddItem([ConfigEXE],[ConfigTitle], [InstallFromDirectory]\[ConfigFile])
  304. EndProgramManagerDDE
  305.  
  306.  
  307. Endif
  308. EndProcedure
  309. Do SetupDisplay
  310. Do Install
  311. SoLong
  312. endscript
  313.